/wsprzdna X
   mvi b,6
/wsprzdna Y
mvi c,2
/wektor X
mvi d,1
/wektor Y
mvi e,1

petla:
   call zapal
   call przesunX
   jz dd1
   xri Eh
   jnz d1
      dd1:
      mov a,d
      cma
      adi 1
      mov d,a
   d1:
   call przesunY
   jz dd2
   xri Fh
   jnz d2
      dd2:
      mov a,e
      cma
      adi 1
      mov e,a
   d2:
jmp petla

przesunX:
   mov a,b
   add d
   mov b,a
ret

przesunY:
   mov a,c
   add e
   mov c,a
ret

zapal:
   lxi h,3000h
   mov a,c
   rlc
   rlc
   rlc
   rlc
   add b
   mov l,a
   mvi m,255
ret
